home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / SOUND / RAVELUTL.ARJ / WSTRING.MA < prev    next >
Text File  |  1990-04-26  |  740b  |  40 lines
  1. @include \mbin\mh\wind.mh
  2.  
  3. #
  4. # demo of WSTRING input window
  5. #
  6.  
  7. uchar xstring[20]
  8.  
  9. riff openWindows()
  10.     int wd
  11.  
  12.     # STRING window, one label with ability to enter string (alphanums)
  13.     #    in field. Returns put in ravel uchar array.
  14.     #    upX,upY
  15.     #    lowX,lowY
  16.     #    title string - is used as "label string".
  17.     #    nolabels = 1    must be 1
  18.     #    fieldsize = one less than array size
  19.     #    nofields = 1 
  20.     #    pointer to uchar array of size 1-n
  21.     #     size is calculated automatically.
  22.     wd = inputWindow(WSTRING, 11, 0, 0, 0, "enter filename", 1, 1, 19, &xstring)
  23.  
  24. end
  25.  
  26. vco testit()
  27.     int rval
  28.      void openWindows()
  29.     for(;;)
  30.         mchoose(C,D,E,F,G,A,B,HC)    q
  31.     end
  32. end
  33.  
  34. vco numbertwoiquess
  35.     for(;;)
  36.         mchoose(C,D,E,F,G,A,B,HC)    q
  37.     end
  38. end
  39.  
  40.